home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / text / edit / bah.lha / BAH3.3.1 / Rexx / InsertMyVersion.bed next >
Text File  |  1998-10-16  |  459b  |  29 lines
  1. /*
  2. ** $VER: InsertVersion.bed 1.0 (02.01.96)
  3. **
  4. ** Insert an AmigaDOS version string at the current cursor position,
  5. ** taking the current filename and date.
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. 'RequestStr TITLE="Name"';
  11.  
  12. IF RC = 0 THEN DO
  13.     name = RESULT
  14. END
  15. ELSE DO
  16.     name = ""
  17. END
  18.  
  19. date = DATE(e);
  20.  
  21. day = SUBSTR(date,1,2)
  22. month = SUBSTR(date,4,2)
  23. year = SUBSTR(date,7,2)
  24.  
  25. str = "$VER: " || name || " .0 (" || day || "." || month || "." || year || ")"
  26. Text str
  27.  
  28. MoveLeft 13
  29.